home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / change2g / frmmain.frm < prev    next >
Text File  |  1999-05-04  |  9KB  |  293 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Ascii Finder"
  5.    ClientHeight    =   3780
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   6855
  9.    Icon            =   "frmMain.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3780
  14.    ScaleWidth      =   6855
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.TextBox Text1 
  17.       BackColor       =   &H00FFFFFF&
  18.       ForeColor       =   &H00000000&
  19.       Height          =   2850
  20.       Left            =   0
  21.       Locked          =   -1  'True
  22.       MultiLine       =   -1  'True
  23.       ScrollBars      =   2  'Vertical
  24.       TabIndex        =   3
  25.       Top             =   360
  26.       Width           =   6855
  27.    End
  28.    Begin VB.ComboBox Combo1 
  29.       Height          =   315
  30.       ItemData        =   "frmMain.frx":0742
  31.       Left            =   0
  32.       List            =   "frmMain.frx":0744
  33.       Sorted          =   -1  'True
  34.       Style           =   2  'Dropdown List
  35.       TabIndex        =   2
  36.       TabStop         =   0   'False
  37.       Top             =   0
  38.       Width           =   3645
  39.    End
  40.    Begin VB.CommandButton cmdQuit 
  41.       Caption         =   "&Quit"
  42.       Height          =   465
  43.       Left            =   6345
  44.       TabIndex        =   0
  45.       TabStop         =   0   'False
  46.       Top             =   -45
  47.       Width           =   555
  48.    End
  49.    Begin VB.CommandButton cmdSize 
  50.       Caption         =   "Font S&ize"
  51.       Height          =   465
  52.       Left            =   5535
  53.       TabIndex        =   1
  54.       TabStop         =   0   'False
  55.       Top             =   -45
  56.       Width           =   825
  57.    End
  58.    Begin VB.CommandButton cmdSearch 
  59.       Caption         =   "Ascii S&earch"
  60.       Height          =   465
  61.       Left            =   4500
  62.       TabIndex        =   10
  63.       TabStop         =   0   'False
  64.       Top             =   -45
  65.       Width           =   1050
  66.    End
  67.    Begin VB.Label Label6 
  68.       AutoSize        =   -1  'True
  69.       BackStyle       =   0  'Transparent
  70.       Caption         =   "About"
  71.       ForeColor       =   &H00FF0000&
  72.       Height          =   195
  73.       Left            =   6300
  74.       TabIndex        =   9
  75.       ToolTipText     =   "About"
  76.       Top             =   3600
  77.       Width           =   420
  78.    End
  79.    Begin VB.Label Label5 
  80.       AutoSize        =   -1  'True
  81.       Caption         =   "COPY:"
  82.       BeginProperty Font 
  83.          Name            =   "MS Sans Serif"
  84.          Size            =   8.25
  85.          Charset         =   0
  86.          Weight          =   700
  87.          Underline       =   0   'False
  88.          Italic          =   0   'False
  89.          Strikethrough   =   0   'False
  90.       EndProperty
  91.       Height          =   195
  92.       Left            =   4680
  93.       TabIndex        =   8
  94.       Top             =   3375
  95.       Width           =   570
  96.    End
  97.    Begin VB.Label Label4 
  98.       AutoSize        =   -1  'True
  99.       Caption         =   "C&haracter"
  100.       Height          =   195
  101.       Left            =   5265
  102.       TabIndex        =   7
  103.       ToolTipText     =   "Click to Copy the Alphanumeric Character to the Clipboard"
  104.       Top             =   3510
  105.       Width           =   690
  106.    End
  107.    Begin VB.Label Label3 
  108.       AutoSize        =   -1  'True
  109.       Caption         =   "Ascii C&ode"
  110.       ForeColor       =   &H00000000&
  111.       Height          =   195
  112.       Left            =   5265
  113.       TabIndex        =   6
  114.       ToolTipText     =   "Click to Copy the ASCII Code to the Clipboard"
  115.       Top             =   3285
  116.       Width           =   750
  117.    End
  118.    Begin VB.Label Label2 
  119.       Alignment       =   2  'Center
  120.       BorderStyle     =   1  'Fixed Single
  121.       BeginProperty Font 
  122.          Name            =   "MS Sans Serif"
  123.          Size            =   18
  124.          Charset         =   0
  125.          Weight          =   400
  126.          Underline       =   0   'False
  127.          Italic          =   0   'False
  128.          Strikethrough   =   0   'False
  129.       EndProperty
  130.       ForeColor       =   &H00000000&
  131.       Height          =   510
  132.       Left            =   6075
  133.       TabIndex        =   5
  134.       Top             =   3240
  135.       Width           =   780
  136.    End
  137.    Begin VB.Label Label1 
  138.       Caption         =   "INFOTEXT"
  139.       Height          =   510
  140.       Left            =   45
  141.       TabIndex        =   4
  142.       Top             =   3240
  143.       Width           =   4620
  144.    End
  145. End
  146. Attribute VB_Name = "Form1"
  147. Attribute VB_GlobalNameSpace = False
  148. Attribute VB_Creatable = False
  149. Attribute VB_PredeclaredId = True
  150. Attribute VB_Exposed = False
  151. Option Explicit
  152.  
  153. Private Sub cmdSearch_Click()
  154.     On Error GoTo bailOut
  155.     Dim asciiChar As Integer
  156.     asciiChar = InputBox("Enter Ascii code:", "Ascii Search")
  157.     If asciiChar < 0 Or asciiChar > 255 Then
  158.         MsgBox "Ascii character must be between 0 and 255", vbExclamation, "Error"
  159.         Exit Sub
  160.     End If
  161.     Text1.SelLength = 0
  162.     Text1.SelStart = (asciiChar * 2) - 1
  163.     Text1.SelLength = 1
  164.     Label1.Caption = "ASCII Code: " & Asc(Text1.SelText)
  165.     Label1.Caption = Label1.Caption & vbCrLf & "Alphanumeric Representation: " & Text1.SelText
  166.     Label2.Caption = Text1.SelText
  167.     Text1.SetFocus
  168. bailOut:
  169.     Text1.SetFocus
  170. End Sub
  171.  
  172. Private Sub Form_Activate()
  173.     Form1.Enabled = False
  174.     Dim a As Variant
  175.     For a = 0 To Screen.FontCount - 1
  176.         Form1.Caption = "Ascii Finder: Loading System Fonts " & a * 100 \ Screen.FontCount & "%"
  177.         DoEvents
  178.         Combo1.AddItem Screen.Fonts(a)
  179.     Next a
  180.     Form1.Caption = "Ascii Finder"
  181.     Text1.Text = Chr(0)
  182.     For a = 1 To 255
  183.         Text1.Text = Text1.Text & " " & Chr(a)
  184.     Next a
  185.     Text1.SelStart = 1
  186.     Text1.SelLength = 1
  187.     Label1.Caption = "ASCII Code: " & Asc(Text1.SelText)
  188.     Label1.Caption = Label1.Caption & vbCrLf & "Alphanumeric Representation: " & Text1.SelText
  189.     Label2.Caption = Text1.SelText
  190.     Form1.Enabled = True
  191.     Text1.SetFocus
  192. End Sub
  193.  
  194. Private Sub Form_Load()
  195.     Label2.FontSize = 20
  196.     Label1.Caption = ""
  197. End Sub
  198.  
  199. Private Sub Label6_Click()
  200.     MsgBox "Ascii Finder" & vbCrLf & "Version: " & App.Major & "." & App.Minor & "." & App.Revision & vbCrLf & _
  201.     Chr(169) & "1999 Blitz Entertainment" & vbCrLf & vbCrLf & "If you find this app usefull or not, tell me why" & vbCrLf & _
  202.     "and what you would like to see in future versions " & vbCrLf & _
  203.     "and I'll let you know when a new version is out." & vbCrLf & vbCrLf _
  204.     & "Send me a buzz at:" & vbCrLf & "Jian_man@geocities.com", vbInformation, "About Ascii Finder"
  205.     Text1.SetFocus
  206. End Sub
  207.  
  208. Private Sub cmdQuit_Click()
  209.     Unload Me
  210.     End
  211. End Sub
  212.  
  213. Private Sub Combo1_Click()
  214.     Text1.FontName = Combo1.List(Combo1.ListIndex)
  215.     Label2.FontName = Combo1.List(Combo1.ListIndex)
  216.     Text1.SetFocus
  217. End Sub
  218.  
  219. Private Sub cmdSize_Click()
  220.     Dim size As String
  221.     size = InputBox("Enter Font Size:", "Font Size", Text1.FontSize)
  222.     If size <> "" Then Text1.FontSize = size
  223.     Text1.SetFocus
  224. End Sub
  225.  
  226. Private Sub Label3_Click()
  227.     On Error GoTo bailOut
  228.     Clipboard.Clear
  229.     Clipboard.SetText Asc(Text1.SelText)
  230. bailOut:
  231. End Sub
  232.  
  233. Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  234.     Label3.ForeColor = &HFF&
  235. End Sub
  236.  
  237. Private Sub Label3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  238.     Label3.ForeColor = &H0&
  239. End Sub
  240.  
  241. Private Sub Label4_Click()
  242.     On Error GoTo bailOut
  243.     Clipboard.Clear
  244.     Clipboard.SetText Text1.SelText
  245. bailOut:
  246. End Sub
  247.  
  248. Private Sub Label4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  249.     Label4.ForeColor = &HFF&
  250. End Sub
  251.  
  252. Private Sub Label4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  253.     Label4.ForeColor = &H0&
  254. End Sub
  255.  
  256. Private Sub Text1_Click()
  257.     On Error GoTo bailOut
  258.     Text1.SelLength = 1
  259.     If Text1.SelText <> " " Then
  260.         Label1.Ca